MODULE TESTS

CONTAINS

    LOGICAL FUNCTION TEST_ISINF(num)
	    REAL, INTENT(IN) :: num
	    IF( num+1 .EQ. num ) THEN
		    TEST_ISINF = .TRUE.
	    ELSE
		    TEST_ISINF = .FALSE.
	    END IF
	    RETURN
    END FUNCTION TEST_ISINF

    LOGICAL FUNCTION TEST_ISNAN(num)
	    REAL, INTENT(IN) :: num
	    IF(num /= num) THEN
		    TEST_ISNAN = .TRUE.
	    ELSE
		    TEST_ISNAN = .FALSE.
	    END IF
	    RETURN
	END FUNCTION TEST_ISNAN

END MODULE TESTS

